home *** CD-ROM | disk | FTP | other *** search
/ Chip 1996 November / Chip 11-96.iso / treiber / drucker / lexmark / optrae / windows / optraewi.exe / LINUTIL.ZIP / UTIL.LIN
INI File  |  1995-08-17  |  2KB  |  68 lines
  1. [Variables]
  2.  
  3. ; This file has no NLS to translate!
  4.  
  5.  
  6. ;
  7. ; Temporary strings
  8. ;
  9. $StripFilename_Drive = ""
  10. $TempString = ""
  11.  
  12.  
  13.  
  14. [Libraries]
  15.  
  16. UtilUtility = linutil.dll
  17.  
  18.  
  19.  
  20. [Components]
  21.  
  22. ; Server components for util.lin
  23. Server_Util = "", , $SERVERAPPDIR, , 2, (=util.lin)
  24.  
  25.  
  26.  
  27.  
  28. [Macros]
  29.  
  30. ; StripFilename:    This function returns a string representing the given
  31. ;                        path without the filename information.
  32. ;
  33. StripFilename($fname)
  34.     (
  35.     ; First, split the path into the drive, path, and filename.  We discard
  36.     ; the filename, store the drive in a global temporary string, and
  37.     ; store the path in $StripFilename.
  38.     SplitPath($fname, $StripFilename_Drive, $StripFilename, )
  39.  
  40.     ; Now recombine the drive and filename, storing them in the return string.
  41.     SetVariable($StripFilename, ($StripFilename_Drive, $StripFilename))
  42.     )
  43.  
  44.  
  45.  
  46. ;  InstallTextIcons: This macro creates the Program Manager 'items' for
  47. ;                    any '.txt' files.  '$ExistingMVGroup' is the name of
  48. ;                    the Program Manager 'group' which was selected for
  49. ;                    the MarkVision 'item.'  It is assumed that this
  50. ;                    parameter is not blank.
  51. ;
  52. InstallTextIcons($ExistingMVGroup)
  53.    (
  54.    ;  Build 'Command Line' for $READMEFILE 'item.'
  55.    ;      ie.  'c:\windows\notepad.exe c:\markvis\readme.txt'
  56.    MakePathName($InstallTextIcons, , $APPDIR, $READMEFILE)
  57.    SetVariable($TempString, ($READMEVIEWER, " ", $InstallTextIcons))
  58.    CallLibrary(UtilUtility, CreateProgmanItem, ,
  59.             ($ExistingMVGroup, $Str_ItemName_ReadMe, $TempString, $NO))
  60.  
  61.    ;  Build 'Command Line' for $SUPPORTFILE 'item.'
  62.    MakePathName($InstallTextIcons, , $APPDIR, $SUPPORTFILE)
  63.    SetVariable($TempString, ($READMEVIEWER, " ", $InstallTextIcons))
  64.    CallLibrary(UtilUtility, CreateProgmanItem, ,
  65.             ($ExistingMVGroup, $Str_ItemName_Support, $TempString, $NO))
  66.    )
  67.  
  68.